home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / ACQUI2.BIN / A15 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  26.8 KB  |  890 lines
  1. 5 IFPEEK(30120)=169THENSYS30120
  2. 6 CLR:BC=53280:CB=53281:POKECB,15:POKEBC,15:OT=1
  3. 7 POKE657,128:IFPEEK(30120)<>169THENSYS49633:POKE775,200
  4. 8 GOSUB15:IFPEEK(30120)=169THENNEW
  5. 9 GOSUB8340:C5=39424:C4=49152:GOSUB11:B7=5:GOTO480
  6. 11 FORZX=1TO15:GETV$:NEXT:RETURN
  7. 12 NX=WN*8+32:NY=WL*8+52:GOSUB250:POKEVS+21,7:RETURN
  8. 13 IFPR=8THEN470
  9. 14 IFT>0ANDT<4THEN470
  10. 15 POKE806,0:POKE807,195:POKE54296,14:POKE251,P2*14AND255:RETURN
  11. 16 POKE806,202:POKE807,241:RETURN
  12. 20 NX=OT*60-34
  13. 30 NY=250:SYSC4,V3,WT,A1,S0,L12,D9,F20,R15:SYSC4,V2,WN,D0,S0
  14. 40 GOSUB250:POKEVS+21,7:FORNY=250TO128STEP-2
  15. 50 POKEVS+3,NY+1:POKEVS+1,NY:POKEVS+5,NY:SYSC4,V2,WN,F((NY-120)^2)
  16. 60 NEXTNY:IFWL=0THEN470
  17. 70 UU%=INT((RND(TI)+.2)^4):IFUU%=0THEN90
  18. 80 FORM=1TOUU%:GOSUB150:NEXT
  19. 90 IFNY>WL*8+52THENNY=NY-2:GOSUB310
  20. 100 IFNY<WL*8+52THENNY=NY+2:GOSUB290
  21. 110 IFNX>WN*8+32THENNX=NX-2:GOSUB300
  22. 120 IFNX<WN*8+32THENNX=NX+2:GOSUB280
  23. 130 IFNX=WN*8+32ANDNY=WL*8+52THEN470
  24. 140 GOTO90
  25. 150 UY%=INT(RND(TI)*9)+1:UX%=INT(RND(TI)*12)+1
  26. 170 IFNY>UY%*8+52THENNY=NY-2:GOSUB310
  27. 180 IFNY<UY%*8+52THENNY=NY+2:GOSUB290
  28. 190 IFNX>UX%*8+32THENNX=NX-2:GOSUB300
  29. 200 IFNX<UX%*8+32THENNX=NX+2:GOSUB280
  30. 210 IFNX=UX%*8+32ANDNY=UY%*8+52THEN470
  31. 220 GOTO170
  32. 250 POKEVS,NX+1:POKEVS+2,NX+2:POKEVS+4,NX:SYSC4,V2,WN,F(NY^2)
  33. 260 POKEVS+1,NY:POKEVS+3,NY+1:POKEVS+5,NY:SYSC4,V3,WS,F(NX^2)
  34. 270 SYSC4,V2,WN,F(NX^2):SYSC4,V3,WS,F(NY^2):RETURN
  35. 280 POKEVS,NX+1:POKEVS+2,NX+2:POKEVS+4,NX:SYSC4,V2,WN,F(NX^2):RETURN
  36. 290 POKEVS+1,NY:POKEVS+3,NY+1:POKEVS+5,NY:SYSC4,V3,WS,F(NY^2):RETURN
  37. 300 POKEVS+2,NX+2:POKEVS,NX+1:POKEVS+4,NX:SYSC4,V2,WN,F(NX^2):RETURN
  38. 310 POKEVS+3,NY+1:POKEVS+1,NY:POKEVS+5,NY:SYSC4,V3,WS,F(NY^2):RETURN
  39. 320 SC$(2)="TAWWER"
  40. 330 SC$(3)="LAHKSUHRX"
  41. 340 SC$(4)="AHMEH4RIX5KAXN"
  42. 350 SC$(5)="WUH5RLDWAYD"
  43. 360 SC$(6)="FEH5STIHVAXLX"
  44. 370 SC$(7)="IHMMPIY5RIYAXLX"
  45. 380 SC$(8)="KAANTIHNEH5TAXLX":RETURN
  46. 390 SP$(1)="PLEY5ER WAAAHN":IFLEFT$(P1$(1),1)="[193]"THENSP$(1)="AA5AAZ."
  47. 420 SP$(2)="PLEY5ER TUXUXUH":IFLEFT$(P1$(2),1)="[193]"THENSP$(2)="DAY."
  48. 440 SP$(3)="PLEY5ER THERIYIY":IFLEFT$(P1$(3),1)="[193]"THENSP$(3)="MOH5OH."
  49. 460 SP$(4)="PLEY5ER FOHOHER":IFLEFT$(P1$(4),1)="[193]"THENSP$(4)="LUX5UX."
  50. 470 RETURN
  51. 480 POKE39440,1:WL=0:C4=49152:X=1924:DIMFR(60):Y=1.0594631:VY=3
  52. 482 PRINT"[147][144]  THE BASIC IDEA OF AQUIRE (ACQUIRE)"
  53. 484 PRINT" IS TO MAKE THE MOST MONEY."
  54. 485 PRINT" EACH PLAYER STARTS WITH $6000."
  55. 486 PRINT" YOU HAVE SIX TILES; EACH TIME YOU"
  56. 488 PRINT" PLAY ONE YOU GET A NEW ONE."
  57. 490 PRINT" TWO TILES TOGETHER FORMS A CHAIN."
  58. 491 PRINT" YOU CAN BUY UP TO THREE SHARES OF"
  59. 492 PRINT" STOCK IN CHAINS EACH TURN."
  60. 493 PRINT"[144] PRESS A KEY TO GO ON.":GOSUB9000
  61. 494 PRINT"[147] AS CHAINS EXPAND STOCK PRICES RISE."
  62. 495 PRINT" WHEN CHAINS TOUCH, THE SMALLER CHAIN"
  63. 496 PRINT" BECOMES PART OF THE LARGER CHAIN"
  64. 497 PRINT" WHOEVER OWNS MOST OF SMALLER CHAIN"
  65. 498 PRINT" GETS A BONUS."
  66. 500 PRINT" AT GAME'S END MAJORITY HOLDERS OF ALL"
  67. 502 PRINT" EXISTING CHAINS GET BONUSES."
  68. 506 PRINT"[144]  PRESS A KEY TO GO ON"
  69. 507 GOSUB9000
  70. 509 PRINT"[147][144]  FIRST THE PROGRAM WILL SET UP"
  71. 510 PRINT" THE ORDER OF THE TILES TO BE DRAWN."
  72. 520 PRINT"           YOU WILL WAIT A BIT."
  73. 522 PRINT" [155] NEXT, YOU WOULD ORDINARILY PRESS A"
  74. 524 PRINT" LETTER FROM THE OPENING MENU."
  75. 526 SA$="IHN DHIHS TUX TOHRIYUXLX,":SYS39424
  76. 528 SA$="YUW WIHL PLEY AH PRAEKTIHS GEYM AHV AHKWAYR.":SYS39424
  77. 530 FORZ=0TO60:B=E
  78. 540 E=INT(X*Y^Z):FR(Z)=E
  79. 570 NEXTZ:POKE39438,75:POKE39439,53
  80. 580 SYSC4,C,V2,FFR(11),WT,A0,D15,S3,R3,L15
  81. 590 SYSC4,V3,FFR(7),WT,A0,D15,S3,R3
  82. 600 SYSC4,V1,FFR(4),WT,A0,D15,S3,R3
  83. 620 SP$(1)="PLEY5ER NAH5MBER WAAAHN"
  84. 630 SP$(2)="PLEY5ER NAH5MBER TUXUXUH"
  85. 640 SP$(3)="PLEY5ER NAH5MBER THERIYIY"
  86. 650 SP$(4)="PLEY5ER NAH5MBER FOHOHER"
  87. 730 DIMSH(20):DIMGG(20):DIMAG(20):EZ=5
  88. 740 DIMJI(20):DIMR(126,3):DIMP(5,10,3):DIMB(10,13):P1=.5:P2=2
  89. 790 FORX=1TO4:P(X,1,1)=6000:NEXT
  90. 800 GOSUB320:FORX=2TO8:P(5,X,1)=25:SC$(X)=SC$(X)+" /HOH7TEH6LXZ":NEXT
  91. 810 SG$(2)="[158]":SG$(3)="":SG$(4)="":SG$(5)="[149]":SG$(6)="[153]":SG$(7)="[150]":SG$(8)="[159]"
  92. 940 VS=53248:FORX=108TO126:R(X,1)=24:R(X,2)=99:NEXTX
  93. 950 OT=4:FORX=1TO9:FORL=1TO12
  94. 960 R((L-1)*9+X,1)=X:R((L-1)*9+X,2)=L
  95. 970 NEXT:NEXT
  96. 980 FORX=1TO108:U=INT(RND(TI)*108)+1
  97. 990 Y=R(U,1):Z=R(U,2):R(U,1)=R(X,1):R(U,2)=R(X,2):R(X,1)=Y:R(X,2)=Z
  98. 992 NEXT:SYS49664:FORX=1TO5
  99. 994 B(R(X,1),R(X,2))=1:NEXT:GOSUB6890
  100. 1010 SA$="WEH4LKUM TUX DHAH GEY5M AHV AHAHKWAY5ER6":SYSC5
  101. 1020 FORM=1TO900:NEXT:SA$=".DHAH GEYM IHZ AH5P TAYM.":SYSC5
  102. 1040 POKE53272,19:GOSUB20:SYSC4,L0
  103. 1050 SA$="PROHGRAEMIYNXG BAY -EH5D-JIH5MIHSAXN.":SYSC5
  104. 1070 FORX=0TO13:FORY=0TO10:B(Y,X)=1:NEXTY:NEXTX
  105. 1080 OT=1:POKEVS+21,0:POKE53272,19
  106. 1090 POKEBC,11:POKECB,12
  107. 1100 GOSUB1510:GOSUB16
  108. 1110 GOSUB1250:GOSUB1350:FORLH=1TOKK
  109. 1120 OT=OT+1:IFOT>KKTHENOT=1
  110. 1121 CM=0:IFLEFT$(P1$(OT),1)="[193]"THENCM=1
  111. 1122 IF(T+1)/3=INT((T+1)/3)ANDINT(RND(TI)*4)=3THENCM=1
  112. 1124 IFPR=9ANDCM<>1THENGOSUB2470
  113. 1140 NEXTLH:IT=TI
  114. 1150 YL=2:IFTA<>1THENGOSUB1350
  115. 1170 GOSUB2770
  116. 1175 IFCO/KK=9THENG8=2
  117. 1177 IFCO/KK>9THENPOKE39438,INT(75-(CO/(KK+4)))
  118. 1180 YL=3
  119. 1190 IFCO=46THENGOSUB320:GOSUB390
  120. 1198 IFO1<>3THENGOSUB7360
  121. 1200 GOSUB3400:GOSUB2190
  122. 1205 IFCM=1THEN1220
  123. 1210 IFPR=9THENFF=1:GOTO6540
  124. 1220 D(OT)=D(OT)+(TI-IT):OT=OT+1:IT=TI:IFOT>KKTHENOT=1
  125. 1222 CM=0:IFLEFT$(P1$(OT),1)="[193]"THENCM=1
  126. 1230 IFO1<>3THEN1150
  127. 1240 GOTO7410:REM GAME IS OVER
  128. 1250 PRINT"[155]  [176][177][178]     [151] 111"
  129. 1260 PRINT"  [151]123456789012"
  130. 1270 FORX=65TO73:PRINT" ";CHR$(X);"[155][190][190][190][190][190][190][190][190][190][190][190][190][151]";CHR$(X)
  131. 1280 NEXTX
  132. 1290 PRINT"  123456789111"
  133. 1300 PRINT"           012"
  134. 1310 PRINT:IFYL=2THEN470
  135. 1320 PRINTTAB(12)"[163]"
  136. 1330 PRINT""
  137. 1340 RETURN
  138. 1350 FORX=1TO9
  139. 1370 PRINT"";
  140. 1380 PRINT:FORM=1TOX:PRINT:NEXT
  141. 1390 PRINTSPC(2);
  142. 1395 FORY=1TO12
  143. 1400 IFB(X,Y)=1THENPRINT"";:GOTO1490
  144. 1410 IFB(X,Y)=0THENPRINT"[144][188]";:GOTO1490
  145. 1415 IFT>0ANDT/3=INT(T/3)THENPRINT"[155][190]";:GOTO1490
  146. 1420 IFB(X,Y)=2THENPRINT"[158][216]";:GOTO1490
  147. 1430 IFB(X,Y)=3THENPRINT"[217]";:GOTO1490
  148. 1440 IFB(X,Y)=4THENPRINT"[218]";:GOTO1490
  149. 1450 IFB(X,Y)=5THENPRINT"[149][220]";:GOTO1490
  150. 1460 IFB(X,Y)=6THENPRINT"[153][223]";:GOTO1490
  151. 1470 IFB(X,Y)=7THENPRINT"[150][161]";
  152. 1480 IFB(X,Y)=8THENPRINT"[159][162]";
  153. 1490 NEXTY:NEXTX:PRINT:PRINT
  154. 1500 RETURN
  155. 1510 REM
  156. 1720 PR=0:P1=.42:PO=1
  157. 1737 G8=1:IFPR=8THENG8=2
  158. 1739 SA$="DHIH4S IH4Z BIYGIHNER DIYFAOLXT MOHD.":SYSC5
  159. 1740 GOSUB6770
  160. 1750 PRINT"[147][155]   HERE YOU WILL "
  161. 1751 PRINT" PRESS A NUMBER KEY [144]2,3,OR 4."
  162. 1752 PRINT"[155]   ENTER THE NUMBER OF PLAYERS"
  163. 1753 PRINT"[155]  I SUGGEST THAT YOU ALWAYS PLAY A 4 "
  164. 1754 PRINT"[155]  PLAYER GAME. THE COMPUTER WILL FILL"
  165. 1755 PRINT"[155]  FOR THE  REMAINING PLAYERS."
  166. 1756 PRINT"   [151]2-4 PLAYERS (4 IS DEFAULT)[145]     ";
  167. 1760 IFP2<7THENSA$="EH5NTER AH NAH5MBER-FRAHM TUW5- TUW FOHER":SYSC5
  168. 1770 GOSUB9000:IFV$<>"2"ANDV$<>"3"THENV$="4"
  169. 1780 KK=VAL(V$)
  170. 1782 PRINTKK:GOSUB11
  171. 1784 PRINT"[147]  NEXT, YOU WILL TYPE IN THE NAMES"
  172. 1785 PRINT"OF THE PEOPLE WHO WILL BE PLAYING."
  173. 1786 PRINT"  IN THE CASE OF COMPUTER PLAYERS,"
  174. 1787 PRINT"YOU WILL JUST PRESS RETURN[146] AND THOSE"
  175. 1788 PRINT"SLOTS WILL BE FILLED BY COMPUTER PLAYERS"
  176. 1789 PRINT"OZ, DI, MO AND LU."
  177. 1790 PRINT"  NOTE THAT THE COMPUTER PLAYER WHO"
  178. 1791 PRINT"PLAYS AS PLAYER #1 (OZ) PLAYS A VERY"
  179. 1792 PRINT"POOR GAME.  THE OTHERS PLAY WELL EXCEPT"
  180. 1793 PRINT"IN THE TUTORIAL."
  181. 1794 SA$="YUX KAEN /HAEV AHP TUX FOHER KAHMPYUW5TER PLEYYERS,":SYS39424
  182. 1795 SA$="OHER, YUX KAEN /HAEV AHP TUX FOHER /HYUWMAXN  PLEYYERS.":SYS39424
  183. 1796 FORM=1TO3000:NEXT:SA$="FOHER TUX5 PIYPAXLX":SYS39424
  184. 1797 SA$="EHNTER LEHTERZ IHN BAAKSEHZ WAHN AEND THRIY":SYS39424
  185. 1798 SA$="JAHST PREHS RIYTER5N IHN BAAKSEHZ TUX AEND FOHER.":SYS39424
  186. 1799 GOSUB9000
  187. 1800 PRINT"[144][147]     ";KK;" PLAYERS"
  188. 1810 PRINT"[155] FOR HUMAN PLAYERS, TYPE NAME OVER WHAT"
  189. 1820 PRINT" IS ALREADY IN THE BOX & PRESS RETURN[146]"
  190. 1830 PRINT" FOR COMPUTER PLAYERS, JUST HIT RETURN[146][149]"
  191. 1840 PRINT" TUTORIAL COMPUTER PLAYERS PLAY BADLY"
  192. 1842 PRINT"[151]  USING 7 LETTERS OR FEWER,":IFPR>6THEN1850
  193. 1845 SA$="FOHRX /HYUW5MUNZ, AH4P TUW SEH5VIXN LEH5TERZ AE5ND RIXTER4N.":SYSC5
  194. 1848 SA$="FOHRX KUMPYUW5TER PLEY5ERZ, JAH5ST PREHS RIXTER4N.":SYSC5
  195. 1850 FORX=1TOKK
  196. 1860 IFX=1THENPRINT"[151]   ENTER (WITH [155]RETURN[146][151])   [144][213][192][192][192][192][192][192][192][201]"
  197. 1870 IFX>1THENPRINT"[151]   ENTER (WITH [155]RETURN[146][151])   [144][171][192][192][192][192][192][192][192][179]"
  198. 1880 FORZ=1TO20:GETV$:NEXT
  199. 1890 PRINT"[151] THE NAME OF PLAYER #"X;"[144] [194][155]=======[144][221]":GOTO1920
  200. 1900 IFX=2THENP2$="[193]DI====":SP$(X)="DAY"
  201. 1901 IFX=3THENP2$="[193]MO====":SP$(X)="MOH5OH"
  202. 1902 IFX=4THENP2$="[193]LU====":SP$(X)="LUX5UX"
  203. 1903 IFX=1THENP2$="[193]OZ====":SP$(X)="AA5AAZ"
  204. 1905 PRINTP2$;:HJ=7:GOTO1944
  205. 1920 PRINT"[144]                         [202][192][192][192][192][192][192][192][203]"
  206. 1930 PRINT"[145][145]";
  207. 1932 P2$="":FORHJ=1TO7
  208. 1935 GOSUB9000
  209. 1937 IFASC(V$)=13ANDHJ=1THEN1900
  210. 1938 IFASC(V$)=13THENHJ=7:GOTO1944
  211. 1939 IFHJ>1ANDASC(V$)=32THEN1941
  212. 1940 IFASC(V$)>90ORASC(V$)<65THEN1935
  213. 1941 PRINTV$;
  214. 1942 P2$=P2$+V$
  215. 1944 NEXTHJ
  216. 1946 PRINT:P2$=P2$+"======"
  217. 1950 P1$(X)=LEFT$(P2$,7)
  218. 2000 NEXTX
  219. 2020 OU=266:PRINT
  220. 2030 PRINT"":CO=0
  221. 2040 FORX=1TOKK:CO=CO+1:R(X,3)=1:PRINT"[151]   "P1$(X),"[144]";R(X,2);CHR$(R(X,1)+64)
  222. 2045 IFLEFT$(P1$(1),1)<>"[193]"THENBI=.5
  223. 2050 B(R(X,1),R(X,2))=0
  224. 2060 IFR(X,2)*20+R(X,1)<OUTHENOT=X:OU=R(X,2)*20+R(X,1)
  225. 2070 NEXTX:PRINT
  226. 2080 PRINT"[151] THE PLAYER TO GO FIRST WILL BE":B7=0
  227. 2090 SA$=SP$(OT):SYSC5:SA$="WIH6LX GOHOH FERST.":SYSC5:POKE39439,73
  228. 2100 PRINT"                         ";P1$(OT)
  229. 2110 GOSUB6770:IFPR=2THENPR=3
  230. 2120 FORY=1TO6:FORX=1TOKK:CO=CO+1
  231. 2140 P(X,Y,2)=R(CO,1)
  232. 2150 P(X,Y,3)=R(CO,2)
  233. 2170 NEXTX:NEXTY
  234. 2180 PRINT"[147]":RETURN
  235. 2190 IFBE*B7=0ORT>9THEN2460
  236. 2210 PRINT"[151]";
  237. 2220 FORX=1TOKK:PRINTP1$(X);" ";:NEXT
  238. 2230 PRINT"[151]"
  239. 2232 PRINT"[152]                                    [145]"
  240. 2235 FORPX=1TO5:PRINTTAB((PX-1)*8)"";ABS(INT(D(PX)/3600));
  241. 2237 IFPX<5THENPRINT"[151] [173][174]";
  242. 2240 NEXT:PRINT:FORM=2TO7
  243. 2242 IFM/3=INT(M/3)THENPRINT"[152] FUNCTION KEYS CHANGE SPRITE USAGE     "
  244. 2245 IF(M+1)/3=INT((M+1)/3)THENPRINT"[152] ^ BORDER COLORS REPRESENT OPTIONS     "
  245. 2246 IF(M+2)/3=INT((M+2)/3)THENPRINT"[152] PRESS + KEY TO RESTART GAME           "
  246. 2250 IFM=2ORM=4THENPRINT"[151][164][164][164][164][164][164][164] [164][164][164][164][164][164][164] [164][164][164][164][164][164][164] [164][164][164][164][164][164][164] [164][164][164][164][164][164][164]"
  247. 2260 NEXTM
  248. 2270 PRINT"[151][216][217][218][220][223][161][162] ";
  249. 2280 PRINT"                                 [144]  [195][198][146]  [145]";
  250. 2290 PRINT" ";:FORX=1TOKK:PRINT"[155]$";P(X,1,1);" ";
  251. 2300 NEXTX:PRINT"":IFT>6THEN2460
  252. 2310 IFEZ>13THENEZ=13
  253. 2320 FORX=1TOEZSTEP2
  254. 2330 PRINT""
  255. 2340 DO=22-INT((X+1)/2)
  256. 2350 FORQ=1TODO:PRINT"";:NEXT:FORY=1TO5:FORZ=2TO8
  257. 2380 IFP(Y,Z,1)>14ANDX=13THENPRINTSG$(Z);"+";:GOTO2420
  258. 2390 IFP(Y,Z,1)<XTHENPRINT"";:GOTO2420
  259. 2400 IFP(Y,Z,1)=XTHENPRINTSG$(Z);"[191]";:GOTO2420
  260. 2410 IFP(Y,Z,1)>XTHENPRINTSG$(Z);"[255]";:GOTO2420
  261. 2420 NEXTZ:PRINT"";:NEXTY:NEXTX
  262. 2460 B7=0:RETURN
  263. 2470 IFPR<>9THEN2740
  264. 2490 GOSUB5170:GOSUB11
  265. 2520 PRINT"";:POKECB,10:POKEBC,2
  266. 2530 PRINTTAB(20)"ALL LEAVE EXCEPT"
  267. 2550 PRINTTAB(21)P1$(OT)
  268. 2560 SA$="EH5VERIYBAH5DIY MAHST LIYV- EHKSEH5PT":SYSC5:SA$=SP$(OT):SYSC5
  269. 2590 PRINTTAB(16)"IF ALL GONE HIT KEY"
  270. 2600 PRINTTAB(21)P1$(OT)
  271. 2620 P2=12:GOSUB6770
  272. 2630 POKECB,12:POKEBC,11:GOSUB5170
  273. 2640 PRINT"";
  274. 2650 PRINTTAB(20)"COPY YOUR TILES"
  275. 2670 FORX=1TO6:PRINTTAB(20)"[151]";X;"[144]";P(OT,X,3);CHR$(P(OT,X,2)+64)
  276. 2690 NEXTX:PRINTTAB(20)"PRESS KEY"
  277. 2700 GOSUB6350
  278. 2710 P2=27:GOSUB6770:P2=2
  279. 2720 GOSUB5170:GOSUB7900
  280. 2730 SA$="EH5VERIYBAH5DIY BAEK":SYSC5
  281. 2740 RETURN
  282. 2770 EB=0:TA=0:IFCM=0THENPOKEOT*8+1576,201:POKE55848+OT*8,OT-1
  283. 2780 GOSUB5170:GOSUB11
  284. 2790 PRINT"":PRINT
  285. 2792 IFCM=0THENGOSUB13
  286. 2800 PRINTTAB(20)P1$(OT)",":SA$=SP$(OT):SYSC5:IFCM=0THENGOSUB16
  287. 2810 GOSUB8450:IFMR=1THEN2875
  288. 2830 FORY=1TO6:WL=P(OT,Y,2):WN=P(OT,Y,3)
  289. 2840 GOSUB3090:IFTD<>2THENMR=1
  290. 2850 NEXTY:IFMR=1THEN2875
  291. 2860 SA$="AOLX TAYYULZ AARX-AXNPLEYAXBUL.":SYSC5
  292. 2870 PRINTTAB(21)"CAN NOT PLAY":GOTO3390
  293. 2875 IFCM*PO=1ANDDN=0THENGOSUB6350:GOSUB7570:GOSUB7900:GOTO3010
  294. 2880 IFCM=1ANDDN=0THENGOSUB7570:GOTO3010
  295. 2882 IFCM*OT*DN=1ORCM*DN*P1=.8THENGOSUB7570:GOTO3010
  296. 2883 IFCM=1ANDDN>0THENFF=2:GOSUB7570:GOSUB5170:GOSUB6660:GOSUB7900:GOTO3010
  297. 2885 IFPO>0ANDPRTHENFF=2:GOSUB5170:GOTO6540
  298. 2890 PRINTTAB(20)" CHOOSE A TILE   "
  299. 2900 IFCO<46THENSA$="CHUXZ AH TAYLX.":SYSC5
  300. 2905 IFCO<36ANDPR<7THENSA$="JAH5ST /HIHT WAH4N NAH5MBER. NOH4 LEH5TERZ.":SYSC5
  301. 2910 IFCO>45ANDCO<62THENSA$="CHUXZ.":SYSC5
  302. 2920 IFCO<37THENSA$="DHEHN  PREHS AH NAH5MBER  KIY5IY, PLIYZ":SYSC5
  303. 2925 IFPR=0THENFF=2:GOSUB5170:GOTO6540
  304. 2930 PRINTTAB(20)"[144]F5 [151]DISPLAYS TILES"
  305. 2940 PRINTTAB(20)"THEN PRESS # KEY"
  306. 2950 GOSUB16:GOSUB11:GOSUB9000
  307. 2970 IFV$="[135]"THENFF=2:GOSUB5170:GOTO6540
  308. 2980 IFV$="8"THENBE=1:B7=2:GOSUB2190:BE=0
  309. 2990 IFV$="7"ANDO1=1THENO1=3
  310. 2995 GOSUB7900
  311. 3000 W=VAL(V$):GOSUB5170
  312. 3010 IFW>6ORW<1THEN2780
  313. 3020 WN=P(OT,W,3):WL=P(OT,W,2):IFWL>9THEN2780
  314. 3030 GOSUB6420
  315. 3040 PRINTTAB(20)"[153]";"";WN;CHR$(WL+64);""
  316. 3050 GOSUB3090
  317. 3060 ONTDGOTO3080,4410,3310,3070
  318. 3070 GOSUB3870:GOTO3290
  319. 3080 B(WL,WN)=0:TA=1:GOTO3380
  320. 3090 TD=0:ME=0:CH=0:JO=0
  321. 3110 NW=B(WL-1,WN)
  322. 3120 SW=B(WL+1,WN)
  323. 3130 EW=B(WL,WN+1)
  324. 3140 WW=B(WL,WN-1)
  325. 3150 FORX=1TO19:JI(X)=0:NEXTX
  326. 3160 IFEW<>1ORWW<>1THEN3190
  327. 3170 IFSW<>1ORNW<>1THEN3190
  328. 3180 TD=1:RETURN
  329. 3190 IFEW>1ORWW>1THEN3220
  330. 3200 IFNW>1ORSW>1THEN3220
  331. 3210 TD=2:RETURN
  332. 3220 JI(EW)=JI(EW)+1
  333. 3230 JI(WW)=JI(WW)+1
  334. 3240 JI(NW)=JI(NW)+1
  335. 3250 JI(SW)=JI(SW)+1
  336. 3260 FORX=2TO8:IFJI(X)THENME=ME+1:JO=X
  337. 3270 NEXTX:EU=1:IFME>1THENTD=4:RETURN
  338. 3280 TD=3:RETURN
  339. 3290 IFEU=2THEN:GOSUB4980:GOTO2770
  340. 3300 GOSUB2190:GOTO3380
  341. 3310 B(WL,WN)=JO
  342. 3330 IFEW=0THENB(WL,WN+1)=JO:P(0,JO,0)=P(0,JO,0)+1
  343. 3340 IFNW=0THENB(WL-1,WN)=JO:P(0,JO,0)=P(0,JO,0)+1
  344. 3350 IFSW=0THENB(WL+1,WN)=JO:P(0,JO,0)=P(0,JO,0)+1
  345. 3360 IFWW=0THENB(WL,WN-1)=JO:P(0,JO,0)=P(0,JO,0)+1
  346. 3370 P(0,JO,0)=P(0,JO,0)+1
  347. 3372 IFP(0,JO,0)>=11THEN:SA$="AH CHEYN AHV IYLEHVEHN TAYLZ OHER MOHER":SYS39424
  348. 3374 IFP(0,JO,0)>=11THEN:SA$="KAEN NAAT BIY TEYKEHN OHVER.":SYS39424
  349. 3380 GOSUB4980
  350. 3390 GOSUB7900:RETURN
  351. 3400 B7=0:TE=1500
  352. 3410 GOSUB5040
  353. 3420 EZ=4:YB=0:YU=0:FORX=2TO8:IFP(0,X,0)>0THENYU=1
  354. 3430 IFP(0,X,0)>0ANDTE>VA(X)THENTE=VA(X)
  355. 3440 IFP(OT,1,1)>=TETHENYB=1
  356. 3450 FORY=1TOKK
  357. 3460 IFP(Y,X,1)>=EZTHENEZ=P(Y,X,1)+3
  358. 3470 NEXTY:NEXTX:IFYU=0ORYB=0THEN3860
  359. 3480 GOSUB5170
  360. 3490 PRINTTAB(21)P1$(OT)
  361. 3495 SA$=SP$(OT):SYSC5:
  362. 3497 IFCM=1THENBE=1:GOTO3630
  363. 3498 PRINTTAB(20)"***[129]*[158]*******[129]****"
  364. 3500 PRINTTAB(20)"*[129]*[158]** [155]STOCK[158] **[129]**"
  365. 3504 PRINTTAB(20)"**[129]*[158]*       *[129]***"
  366. 3510 PRINTTAB(20)"*[129]*[158]** [155] BUY [158] **[129]**"
  367. 3512 PRINTTAB(20)"**[129]*[158]*       *[129]***"
  368. 3520 PRINTTAB(20)"*[129]*[158]** [155]TIME![158] **[129]**"
  369. 3524 PRINTTAB(20)"***[129]*[158]*******[129]****"
  370. 3530 PRINTTAB(21)"[151]PRESS # KEY UP"
  371. 3540 PRINTTAB(22)"[151]TO 3 SHARES."
  372. 3570 SA$="IHTS TAY6M TUW BAY STAAK.":SYSC5
  373. 3590 P2=1:IFC0>KK*12THENP2=.5
  374. 3592 GOSUB6770:P2=2:IFV=9THENGOSUB1350
  375. 3600 BE=1:IFV=8THENRZ=EZ:EZ=15:B7=2:GOSUB2190:EZ=RZ
  376. 3630 GOSUB9300:FORM1=1TOVY:IFCM=1ANDM1>1THEN3690
  377. 3635 IFP(OT,1,1)<TETHEN3850
  378. 3640 GOSUB5170:PRINTTAB(20)"YOU HAVE $";P(OT,1,1)
  379. 3650 PRINTTAB(20)"[155]# PRICE  STOCK"
  380. 3660 FORX=2TO8
  381. 3670 IFP(0,X,0)>0ANDP(5,X,1)>0THENPRINTTAB(17)"[144]";X-1;VA(X);NA$(X)
  382. 3680 NEXTX:IFO1=1ANDM1=3THENPRINTTAB(18)"[144]8 [151]GAME OVER _"
  383. 3690 IFCM=1ANDM1=1THENGOSUB7970:GOTO3720
  384. 3692 IFCM=1THENX=SP:GOSUB7986:GOTO3720
  385. 3695 SA$="/HIHT DHAH NAH5MBER AHV DHAH STAOK YUW WAANT, OHRX":SYSC5
  386. 3697 SA$="PREHS EHNIY LEHTER KIY5IY, PLIYZ,IHF YUW DOHNT WAANT TUX BAY.":SYSC5
  387. 3700 GOSUB9000
  388. 3710 SP=VAL(V$)+1
  389. 3720 IFSP>9ORSP<2THENM1=VY:GOTO3850
  390. 3722 IFSP=9ANDO1=1THENO1=3:M1=2:GOTO3850
  391. 3724 IFSP=9THENM1=VY:GOTO3850
  392. 3730 IFP(0,SP,0)<2ORP(5,SP,1)<1THEN3850
  393. 3740 IFP(OT,1,1)<VA(SP)THEN3850
  394. 3750 IFCM<>1OR(DN+1)*M1=1THENGOSUB5170
  395. 3760 P(5,SP,1)=P(5,SP,1)-1:B7=1
  396. 3770 P(OT,SP,1)=P(OT,SP,1)+1
  397. 3780 P(OT,1,1)=P(OT,1,1)-VA(SP)
  398. 3782 IFVY>3THEN3838
  399. 3785 IFCMANDDNTHEN3838
  400. 3790 PRINTTAB(16)NA$(SP);
  401. 3800 PRINT"  [144]$";VA(SP)
  402. 3820 PRINTTAB(16)"[155]YOU NOW HAVE";
  403. 3830 PRINT"  [144]$";P(OT,1,1):P2=.7
  404. 3832 IFCM=0THEN:SA$="YUW JAHST BAAT WAHN SHEYER AHV":SYS39424
  405. 3838 SA$=SC$(SP):SYSC5
  406. 3840 IFCM<>1ORM1=3THENPOKEBC,7:GOSUB6770:POKEBC,12
  407. 3850 P2=2:NEXTM1
  408. 3860 RETURN
  409. 3870 GOSUB5170:GOSUB15:PRINTTAB(22)"           [146]":D(OT)=D(OT)+TI-IT:IT=TI
  410. 3890 PRINTTAB(22)"  MERGER!  [146]"
  411. 3900 PRINTTAB(22)"           [146]"
  412. 3910 GOSUB16:SA$="MER4JER.":SYSC5
  413. 3920 AG(6)=EW:AG(5)=WW:AG(7)=NW:AG(8)=SW
  414. 3930 FORX=1TO4
  415. 3940 AG(X)=AG(7)
  416. 3950 IFP(0,AG(6),0)>P(0,AG(X),0)THENAG(X)=AG(6)
  417. 3960 IFP(0,AG(8),0)>P(0,AG(X),0)THENAG(X)=AG(8)
  418. 3970 IFP(0,AG(5),0)>P(0,AG(X),0)THENAG(X)=AG(5)
  419. 3980 FORY=5TO8:IFAG(Y)=AG(X)THENAG(Y)=0
  420. 3990 NEXTY:NEXTX
  421. 4000 IFP(0,AG(2),0)<11THEN4050
  422. 4010 PRINTTAB(22)"[144]UNMERGIBLES":EU=2
  423. 4020 SA$="AHNPLEYAHBUL.,,,":SYSC5
  424. 4030 SA$="NOH3 MER4JER.":SYSC5
  425. 4040 B(WL,WN)=1:GOSUB7900:RETURN
  426. 4050 IFP(0,AG(2),0)<>P(0,AG(1),0)THEN4160
  427. 4070 GOSUB5170:PRINT"":PRINTTAB(25)P1$(OT)","
  428. 4080 PRINTTAB(20)"    CHOOSE"
  429. 4090 PRINTTAB(20)"  DOMINANT CHAIN"
  430. 4100 FORX=1TO2:PRINTTAB(17)"[144]";X;NA$(AG(X)):NEXTX
  431. 4110 IFCM=1THENGOSUB8260:GOTO4140
  432. 4112 SA$="SHEYER /HOHLDERZ IHN DHAH DAAMIHNAXNT CHEYN GEHT NOH BOHNAXS.":SYS39424
  433. 4116 SA$="... CHUXZ DHAH DAAMIHNAXNT CHEYN.":SYS3942
  434. 4120 GOSUB6770
  435. 4130 IFV>2ORV<1THEN4120
  436. 4140 IFV=2THENAG(5)=AG(1):AG(1)=AG(2):AG(2)=AG(5)
  437. 4150 SA$=SC$(AG(1)):SYSC5
  438. 4160 JO=0:IFEW=0THENJO=JO+1:B(WL,WN+1)=AG(1)
  439. 4170 SR$=SC$(AG(2)):SA$=SC$(AG(1)):SYSC5
  440. 4180 SA$="TEYKS OHVER":SYSC5:SA$=SR$:SYSC5
  441. 4190 IFWW=0THENJO=JO+1:B(WL,WN-1)=AG(1)
  442. 4200 IFNW=0THENJO=JO+1:B(WL-1,WN)=AG(1)
  443. 4210 IFSW=0THENJO=JO+1:B(WL+1,WN)=AG(1)
  444. 4220 B(WL,WN)=AG(1)
  445. 4230 P(0,AG(1),0)=P(0,AG(1),0)+1+P(0,AG(2),0)+JO
  446. 4240 P(0,AG(2),0)=0
  447. 4250 FORX=1TO9:FORY=1TO12
  448. 4260 IFB(X,Y)=AG(2)THENB(X,Y)=AG(1)
  449. 4270 NEXTY:NEXTX:ZV=2
  450. 4280 IFP(0,AG(3),0)>0THENZV=3:GOTO4310
  451. 4290 IFP(0,AG(4),0)>0THENZV=4:GOTO4350
  452. 4300 GOTO4390
  453. 4310 P(0,AG(1),0)=P(0,AG(1),0)+P(0,AG(3),0):P(0,AG(3),0)=0
  454. 4320 FORX=1TO9:FORY=1TO12
  455. 4330 IFB(X,Y)=AG(3)THENB(X,Y)=AG(1)
  456. 4340 NEXTY:NEXTX:GOTO4290
  457. 4350 P(0,AG(1),0)=P(0,AG(1),0)+P(0,AG(4),0):P(0,AG(4),0)=0
  458. 4360 FORX=1TO9:FORY=1TO12
  459. 4370 IFB(X,Y)=AG(4)THENB(X,Y)=AG(1)
  460. 4380 NEXTY:NEXTX
  461. 4390 GOTO5940
  462. 4410 BE=0:B6=0
  463. 4430 NA$(2)="T[158]OWER"
  464. 4440 NA$(3)="LUXOR"
  465. 4450 NA$(4)="AMERICAN"
  466. 4460 NA$(5)="W[149]ORLDWIDE"
  467. 4470 NA$(6)="F[153]ESTIVAL"
  468. 4480 NA$(7)="I[150]MPERIAL"
  469. 4490 NA$(8)="C[159]ONTINENTAL"
  470. 4500 FORX=2TO8
  471. 4510 IFP(0,X,0)=0THENBE=1:B6=B6+1:B5=X
  472. 4520 NEXTX:IFBE=1THENB7=1:GOTO4580
  473. 4530 SA$="AHNPLEYAHBUL":SYSC5
  474. 4540 PRINTTAB(20)"[158]UNPLAYABLE":IFEB=5THEN3390
  475. 4550 W=W+1:EB=EB+1:IFW=7THENW=1
  476. 4560 PRINT"":P2=1
  477. 4570 GOTO3020
  478. 4580 GOSUB5170:IFB6=1THENTH=B5:GOTO4800
  479. 4590 PRINT"";
  480. 4600 PRINTTAB(21)P1$(OT)
  481. 4610 PRINTTAB(18)"DECIDE WHAT TO NAME"
  482. 4620 PRINTTAB(18)"YOUR NEW CHAIN."
  483. 4640 SA$=SP$(OT):SYSC5
  484. 4650 SA$="NEYM YUXR NUX CHEYN.":SYSC5:IFCMTHEN4670
  485. 4660 IFPR=0THENSA$="EH5NTER AH NAH5MBER- FRAHM WAH5N TUW SEH5VAXN.":SYSC5
  486. 4670 P2=1:GOSUB6770:P2=2
  487. 4680 GOSUB5170
  488. 4690 PRINT"";
  489. 4700 PRINTTAB(20)"PRESS CORRECT #"
  490. 4710 FORX=1TO7
  491. 4720 IFP(0,X+1,0)THENPRINTTAB(20)"[151]";X;"[151]";" - (TAKEN)":GOTO4740
  492. 4730 PRINTTAB(20)"[151]";X;"";NA$(X+1)
  493. 4740 NEXTX
  494. 4750 IFCM=1THENGOSUB8230:GOTO4780
  495. 4760 GOSUB9000
  496. 4770 TH=VAL(V$):IFTH<1ORTH>7THEN4750
  497. 4780 TH=TH+1:IFP(0,TH,0)>0THEN4750
  498. 4790 GOSUB5170
  499. 4800 PRINT"";:PRINT
  500. 4810 PRINTTAB(21)P1$(OT)
  501. 4820 PRINTTAB(20)"YOU HAVE CHOSEN:"
  502. 4830 PRINTTAB(19)V$;NA$(TH)
  503. 4850 SA$=SC$(TH):SYSC5
  504. 4860 B(WL,WN)=TH:P(0,TH,0)=1:P(5,TH,2)=WL:P(5,TH,3)=WN
  505. 4870 IFEW=0THENP(0,TH,0)=P(0,TH,0)+1:B(WL,WN+1)=TH
  506. 4880 IFSW=0THENP(0,TH,0)=P(0,TH,0)+1:B(WL+1,WN)=TH
  507. 4890 IFNW=0THENP(0,TH,0)=P(0,TH,0)+1:B(WL-1,WN)=TH
  508. 4900 IFWW=0THENP(0,TH,0)=P(0,TH,0)+1:B(WL,WN-1)=TH
  509. 4950 IFP(5,TH,1)>0THENP(OT,TH,1)=P(OT,TH,1)+1:P(5,TH,1)=P(5,TH,1)-1
  510. 4952 SA$="YUW GEHT AH BOHNAHS SHEYER FOHER FOHRMIYNXG DHAH CHEYN.":SYS39424
  511. 4960 GOSUB1350:TA=1
  512. 4970 GOTO3380
  513. 4980 CO=CO+1
  514. 5000 P(OT,W,3)=R(CO,2)
  515. 5010 P(OT,W,2)=R(CO,1)
  516. 5020 P(OT,8,3)=W:RETURN
  517. 5040 FORX=2TO8:VA(X)=0
  518. 5060 IFX>6THENVA(X)=VA(X)+100
  519. 5070 IFX>3THENVA(X)=VA(X)+100
  520. 5080 IFP(0,X,0)<1THENVA(X)=0
  521. 5090 IFP(0,X,0)<6THENVA(X)=VA(X)+P(0,X,0)*100
  522. 5100 IFP(0,X,0)>5ANDP(0,X,0)<11THENVA(X)=VA(X)+600
  523. 5110 IFP(0,X,0)>10ANDP(0,X,0)<21THENVA(X)=VA(X)+700
  524. 5120 IFP(0,X,0)>20ANDP(0,X,0)<31THENVA(X)=VA(X)+800
  525. 5130 IFP(0,X,0)>30ANDP(0,X,0)<41THENVA(X)=VA(X)+900
  526. 5140 IFP(0,X,0)>40THENVA(X)=VA(X)+1000
  527. 5160 NEXTX:RETURN
  528. 5170 GOSUB9300:IFCM=0ANDPR<8THENGOSUB16
  529. 5210 FORM=1TO2:PRINTTAB(16)"[152]F1-MUCH F2-SOME F3-NONE"
  530. 5215 PRINTTAB(16)"[152]U=UNLIMITED STOCK BUYS."
  531. 5216 PRINTTAB(16)"[152]L=BUY ONLY 3 SHARES.   "
  532. 5220 PRINTTAB(16)"[152]  F8  KEY RESUMES PLAY."
  533. 5225 PRINTTAB(16)"[152]THE ^ KEY FOR VARIATION"
  534. 5227 PRINTTAB(16)"[152]PURP/CHAINS,ORNG/STOCKS"
  535. 5230 NEXTM:PRINT"[151]";
  536. 5235 RETURN
  537. 5250 GOSUB11
  538. 5260 FORZL=2TOZV
  539. 5290 MT=OT:GOTO5330
  540. 5300 MT=MT+1:IFMT>KKTHENMT=1
  541. 5310 IFMT=OTTHENNEXTZL:B7=2:D(5)=D(5)+TI-IT:IT=TI:RETURN
  542. 5320 IFP(MT,AG(ZL),1)<1THEN5300
  543. 5330 YL=2:EZ=15
  544. 5340 PRINT"";
  545. 5350 FORHM=1TO4
  546. 5360 IFP(MT,AG(ZL),1)<1THEN5920
  547. 5370 GOSUB5170:IFO1=2THENV=1:GOTO5530
  548. 5380 PRINTTAB(21)P1$(MT)
  549. 5390 SA$=SP$(MT):SYSC5
  550. 5400 PRINTTAB(18)NA$(AG(ZL))
  551. 5410 PRINTTAB(20)"ENTER A CHOICE"
  552. 5420 PRINTTAB(20)"[144]1 [151] SELL STOCK"
  553. 5430 PRINTTAB(20)"[144]2 [151] TRADE STOCK"
  554. 5440 PRINTTAB(20)"[144]3 [151] HOLD STOCK":IFHM>1ORLEFT$(P1$(MT),1)="[193]"THEN5460
  555. 5442 SA$="WHAH5T DUW YUW WAANT TUW DUW6 WHIHTH YUXRX":SYSC5
  556. 5443 SA$=SC$(AG(ZL))+" STAAK.":SYSC5
  557. 5444 SA$="YUW5 WIH5L GEH5T FOH4R CHAE5NSEHZ TUX SEHLX OHRX CHREYD.":SYS39424
  558. 5448 SA$="PREHS WAH5N IHF YUW WAHNT TUX SEHLX SAHM STAAK.":SYS39424
  559. 5450 SA$="PREHS TUX5 IHF YUW WAHNT TUX CHREYD SAHM STAAK.":SYS39424
  560. 5452 SA$="PREHS THRIY5 IHF YUW WAHNT TUX /HOHLD YUXRX STAAK.":SYS39424
  561. 5460 IFLEFT$(P1$(MT),1)="[193]"THENV=1:GOTO5480
  562. 5470 P1=P1*2:P2=8:GOSUB6770:P2=2:P1=P1/2:IFV<1ORV>3THEN5470
  563. 5480 GOSUB5170
  564. 5490 PRINT"";TAB(18)NA$(AG(ZL))
  565. 5500 PRINTTAB(17)"YOU HAVE";P(MT,AG(ZL),1);"SHARE";:IFV=3THENHM=HM+1
  566. 5509 IFP(MT,AG(ZL),1)<>1THENPRINT"S"
  567. 5520 PRINT:PRINTTAB(22)P1$(MT):ONVGOTO5530,5700,5920
  568. 5530 IFO1=2THEN8390
  569. 5550 IFLEFT$(P1$(MT),1)="[193]"THEN8390
  570. 5560 PRINTTAB(20)"[144]HOW MANY DO YOU"
  571. 5570 PRINTTAB(20)"[144]WANT TO SELL?"
  572. 5580 PRINTTAB(20)"[144]PRESS A #, 1-9"
  573. 5590 SA$="/HAW MEHNIY SHEYRXZ AHV":SYSC5
  574. 5600 SA$=SC$(AG(ZL)):SYSC5
  575. 5610 SA$="DUW YUW WAANT TUW SEHLX.":SYSC5:IFCO>KK*16THEN5620
  576. 5612 SA$="..NAH5AHT MOHR DHAEN NAY5N.":SYSC5
  577. 5614 SA$="..TUX SEHLX MOHR DHAEN NAY5N SHEYERZ":SYS39424
  578. 5616 SA$="..YUW MAHST SEHLX STAAK, TUX TAYMZ.":SYS39424
  579. 5620 P1=P1*2:P2=8:GOSUB6770:P2=2:P1=P1/2
  580. 5630 XV=V:IFXV>P(MT,AG(ZL),1)THEN5620
  581. 5640 CA=XV*VA(AG(ZL))
  582. 5650 PRINTTAB(20)"PRICE $";CA
  583. 5655 PRINTTAB(20)"[155]FOR ";P1$(MT)
  584. 5660 P(MT,1,1)=P(MT,1,1)+CA
  585. 5670 P(MT,AG(ZL),1)=P(MT,AG(ZL),1)-V
  586. 5675 SA$="STAAK IHZ SOHLD.":SYS39424
  587. 5680 P(5,AG(ZL),1)=P(5,AG(ZL),1)+V
  588. 5690 GOTO5900
  589. 5700 SA$="YUW AOLWEYZ CHREYD- TUX5 FOHER WAH5N.":SYS39424
  590. 5715 PRINTTAB(20)" [144]YOU WANT HOW  "
  591. 5720 PRINTTAB(20)"[144]MANY SHARES OF "
  592. 5730 SA$="/HAW MEHNIY SHEYRXZ AHV":SYSC5
  593. 5740 SA$=SC$(AG(1)):SYSC5
  594. 5750 SA$="DUW YUW WAANT TUW GEHT.":SYSC5:IFPR<>0THEN5800
  595. 5760 SA$="RIYMEHMBER. YUW NIYD TUW5 SHEYRXZ AHV":SYSC5
  596. 5770 SA$=SC$(AG(ZL)):SYSC5
  597. 5780 SA$="TUW GEHT WAHN5 AHV":SYSC5
  598. 5790 SA$=SC$(AG(1)):SYSC5
  599. 5800 PRINTTAB(16)P(5,AG(1),1);LEFT$(NA$(AG(1)),9);"[144]AVLB"
  600. 5810 PRINTTAB(20)"[144]PRESS A #, 0-9"
  601. 5820 P1=P1*2:P2=8:GOSUB6770:XV=V:P2=2:P1=P1/2
  602. 5830 IFXV*2>P(MT,AG(ZL),1)THENPRINTTAB(20)"NEED";XV*2;"[144]FOR"XV:GOTO5900
  603. 5840 IFXV>P(5,AG(1),1)THENPRINTTAB(20)"BANK HASN'T!":GOTO5900
  604. 5850 PRINT"";:PRINTTAB(20)"GOT";XV;"SHARE";:IFXV<>1THENPRINT"S"
  605. 5860 P(MT,AG(ZL),1)=P(MT,AG(ZL),1)-XV*2
  606. 5870 P(5,AG(ZL),1)=P(5,AG(ZL),1)+XV*2
  607. 5880 P(5,AG(1),1)=P(5,AG(1),1)-XV
  608. 5885 SA$="STAAK IHZ CHREYDEHD.":SYS39424
  609. 5890 P(MT,AG(1),1)=P(MT,AG(1),1)+XV
  610. 5900 IFO1=2THEN5920
  611. 5910 P2=3:GOSUB6770
  612. 5920 NEXTHM
  613. 5930 GOSUB6770:GOTO5300
  614. 5940 FORZ=2TOZV:Y=Z
  615. 5990 SH(1)=P(1,AG(Y),1):SH(2)=P(2,AG(Y),1):SH(3)=P(3,AG(Y),1):SH(4)=P(4,AG(Y),1)
  616. 5995 IFKK=2THENSH(3)=INT(RND(TI)*12)+1:PRINTTAB(23)"BANK ";SH(3):GOSUB6770
  617. 6000 SH(5)=SH(1):SH(6)=SH(2):SH(7)=SH(3):SH(8)=SH(4):SH(0)=0:SH(9)=0:SH(10)=0
  618. 6010 FORX=1TO4
  619. 6020 GG(X)=SH(5):EM=0:GG(X+4)=1
  620. 6030 IFSH(6)>GG(X)THENGG(X)=SH(6):GG(X+4)=2
  621. 6040 IFSH(7)>GG(X)THENGG(X)=SH(7):GG(X+4)=3
  622. 6050 IFSH(8)>GG(X)THENGG(X)=SH(8):GG(X+4)=4
  623. 6060 FORY=5TO8:IFGG(X)=SH(Y)ANDSH(Y)>0THENSH(X+8)=SH(8+X)+1
  624. 6070 IFGG(X)=SH(Y)ANDSH(8+X)=1THENSH(Y)=0
  625. 6075 ZX(Y-4)=0:NEXTY:NEXTX:GG(8)=10
  626. 6080 FORX=5TO7:GG(8)=GG(8)-GG(X):NEXTX
  627. 6100 IFSH(9)=0THENSH(9)=1
  628. 6110 IFSH(10)=0THENSH(10)=1:GG(6)=GG(5)
  629. 6130 IFSH(9)=2THENSH(10)=2
  630. 6135 IFSH(9)=3THENSH(10)=3
  631. 6140 GOSUB5170:PRINT"";:PRINTTAB(25)"[155]BONUSES"
  632. 6150 IFO1=2THENSA$=SC$(MY):SYSC5
  633. 6155 IFVA(AG(Z))=0THEN6330
  634. 6200 RX=VA(AG(Z))*10
  635. 6205 FORPX=1TOSH(9)
  636. 6210 ZX(GG(PX+4))=RX/SH(9)
  637. 6215 NEXTPX
  638. 6220 DX=1:IFSH(9)=1THENDX=2
  639. 6225 RX=VA(AG(Z))*5
  640. 6230 FORPX=DXTOSH(10)+INT(DX/2)
  641. 6235 ZX(GG(PX+4))=ZX(GG(PX+4))+RX/SH(10)
  642. 6240 NEXTPX
  643. 6250 FORPX=1TOKK
  644. 6255 ZX(PX)=INT(ZX(PX))
  645. 6260 P(PX,1,1)=P(PX,1,1)+ZX(PX)
  646. 6265 IFZX(PX)=0THEN6300
  647. 6270 PRINTTAB(20)P1$(PX);"$";ZX(PX)
  648. 6274 SA$="BOH5NAHS FOHRX":SYSC5
  649. 6276 SA$=SP$(PX):SYSC5
  650. 6280 SA$="DHAH BIHGEHST STAAK /HOHLDER IHN DHAH CHEYN DHAETS TEYKEHN OHVER"
  651. 6282 SYS39424:SA$="GEHTS DHAH BIHGEHST BOHNAHS.":SYS39424
  652. 6300 NEXTPX
  653. 6320 P2=5:GOSUB6770:GOSUB6770:P2=2
  654. 6330 NEXTZ
  655. 6340 GOTO5260
  656. 6350 PRINT"":FORZ8=1TO6
  657. 6370 X8=P(OT,Z8,2)
  658. 6380 Y8=P(OT,Z8,3)
  659. 6390 POKE1065+X8*40+Y8,86
  660. 6400 NEXTZ8
  661. 6410 RETURN
  662. 6420 ONG8GOSUB20,12
  663. 6440 PRINT"";:PRINT:FORM=1TOWL:PRINT:NEXT
  664. 6460 PRINTSPC(WN+1);
  665. 6470 PRINT"[144][188]";
  666. 6480 IFG8=3THENP2=.3:GOTO6520
  667. 6482 IFG8=2THENP2=2:GOTO6520
  668. 6490 POKEVS+21,3:P2=.3
  669. 6500 FORNY=NYTO250STEP4:POKEVS+1,NY:POKEVS+3,NY+1:SYSC4,V3,F(NY^2):NEXT
  670. 6510 SYSC4,L0,V2,F1:SYSC4V3,F1
  671. 6520 GOSUB6770:P2=2
  672. 6530 POKEVS+21,0:RETURN
  673. 6540 IFPO<1THENSA$=SP$(OT):SYSC5
  674. 6570 IFFF=1THENSA$=" AHLOH5N.":SYSC5
  675. 6580 GOSUB5170
  676. 6590 PRINT"":PRINT:IFCM=0THENGOSUB13
  677. 6600 PRINTTAB(20)"[155]";P1$(OT)","
  678. 6620 IFFF=2THENPRINTTAB(20)" CHOOSE A TILE   ":IFCO<60THENSA$="CHUXZ.":SYSC5
  679. 6630 IFFF=1THENPOKEBC,2:IFCO<50THENSA$="YUWRX NUW TAYLXZ.":SYSC5
  680. 6640 IFFF=1THENPRINTTAB(20)" PRESS A KEY  ":POKECB,10:P2=5:GOSUB6770
  681. 6650 IFFF=1THENGOSUB5170:PRINTTAB(20)"[155]YOUR NEW TILES:"
  682. 6660 P2=2:POKECB,12:POKEBC,11:GOSUB6350:IFFF=2THENGOSUB16:GOSUB5170
  683. 6670 PRINT:IFCM=0THENGOSUB13
  684. 6672 FORX=1TO6
  685. 6680 IFX=P(OT,8,3)THENPRINTTAB(19)"[144]";X;"";P(OT,X,3);CHR$(P(OT,X,2)+64);
  686. 6690 IFX<>P(OT,8,3)THENPRINTTAB(19)"[151]";X;"[155]";P(OT,X,3);CHR$(P(OT,X,2)+64);
  687. 6695 IFDN*CM>0ANDW<>XTHENPRINT"[151]  _ ";R(X,3);
  688. 6697 IFDN*CM>0ANDW=XTHENPRINT"[156]  _ [144]";R(X,3);
  689. 6700 PRINT:NEXTX:GOSUB16:IFDN>0ANDCM=1THENP=1:P1=P1*2:GOSUB6770:P1=P1/2:RETURN
  690. 6705 IFO1=1ANDFF=2THENPRINTTAB(21)"[151]7  [155]GAME OVER?"
  691. 6720 IFFF=1THENPRINTTAB(20)"PRESS ANY KEY":P2=12:GOSUB6770:P2=2:GOSUB7900
  692. 6730 IFFF=1THENGOSUB5170:IFCO>30THENSA$="EH5VERIYBAH5DIY BAEK.":SYSC5
  693. 6740 IFFF=1ANDCO<31THENSA$="EH5VERIYBAH5DIY KAEN KAHM BAEK - NAW":SYSC5
  694. 6750 GOSUB16:IFFF=1THEN1220
  695. 6760 GOTO2950
  696. 6770 V=0:FORM=1TO20:GETV$:IFV$="[140]"THENGOSUB7860
  697. 6780 NEXTM:GOSUB9300
  698. 6790 FORM=0TOP1*P2*6
  699. 6800 FZ=INT(RND(TI)*5)*12
  700. 6810 SYSC4,V3,WT,FFR(FZ+9),D10,S0,R0
  701. 6820 SYSC4,L3,WT,V2,FFR(FZ),D10,S0,R0
  702. 6822 FORU=1TO80:NEXT
  703. 6830 SYSC4,V1,WT,FFR(FZ+4),D10,S0,R0
  704. 6840 SYSC4,V3,FFR(12),D10,S0,R0
  705. 6845 SYSC4,WT,V2,FFR(FZ+7),D10,S0,R0
  706. 6847 FORU=1TO160:NEXT
  707. 6850 GETV$:V=VAL(V$)
  708. 6852 IFV$="[140]"THENGOSUB7860
  709. 6860 IFV$<>""THEN6875
  710. 6870 NEXTM
  711. 6875 SYSC4,L0,V2,F1:SYSC4,V3,F1
  712. 6880 RETURN
  713. 6890 FORQ=1TO9:FORM=1TO12
  714. 6910 IFB(Q,M)<>1THEN6960
  715. 6920 IFB(Q+1,M)=1THEN7000
  716. 6930 IFB(Q-1,M)=1THEN7000
  717. 6940 IFB(Q,M+1)=1THEN7000
  718. 6950 IFB(Q,M-1)=1THEN7000
  719. 6960 NEXTM:NEXTQ:RETURN
  720. 7000 SA$="SAXMTAYMZ, DHAX BIYGIHNIYNXG RIYPIY5TS.":SYS39424:RUN
  721. 7360 O1=1:FORX=2TO8
  722. 7380 IFP(0,X,0)>0ANDP(0,X,0)<11THENO1=0
  723. 7390 IFP(0,X,0)>40THENO1=1:X=8
  724. 7400 NEXTX:RETURN
  725. 7410 SA$="GEYM-IHZ-OH5VER.":SYSC5
  726. 7420 O1=2:PRINT"[147]";:PRINTTAB(15)"GAME IS OVER":P2=3:GOSUB6770
  727. 7430 GOSUB1250:GOSUB1350:GOSUB2210
  728. 7440 FORMY=2TO8:AG(2)=MY:ZV=2:GOSUB5940
  729. 7450 NEXTMY
  730. 7470 GOSUB5170:GOSUB15:PRINTTAB(21)"   GAME OVER!  [146]"
  731. 7480 Y=0:FORX=1TOKK:PRINTTAB(21)P1$(X);" $";P(X,1,1)
  732. 7490 IFP(X,1,1)>P(Y,1,1)THENY=X
  733. 7500 NEXTX
  734. 7510 PRINTTAB(22)"THE WINNER IS"
  735. 7520 PRINTTAB(26)P1$(Y)
  736. 7530 PRINTTAB(27)"[155]HAS"FRE(0)"K."
  737. 7535 PRINTTAB(17)"HIT SPACE[146] FOR NEW GAME"
  738. 7540 SA$=SP$(Y):SYSC5:GOSUB16
  739. 7550 OT=Y:GOSUB9000:IFV$=" "THENLOAD"A12",8:RUN
  740. 7552 POKE53272,14:IFY=1THENLOAD"A3",8,1
  741. 7554 IFY=2THENLOAD"A5",8,1
  742. 7556 IFY=3THENLOAD"A7",8,1
  743. 7558 IFY=4THENLOAD"A1",8,1
  744. 7570 IFO1*BE<>1THEN7590
  745. 7572 IFINT(RND(TI)*25)=7ORCO>101THENO1=3:SA$="GEYM-IHZ-OH5VER.":SYSC5
  746. 7590 FORY=2TO8:R(Y,1)=0:R(0,1)=0:R(Y+7,0)=60
  747. 7600 IFOT/2=INT(OT/2)ANDY/2=INT(Y/2)THENR(Y+7,0)=40
  748. 7610 IFOT/2<>INT(OT/2)ANDY/2<>INT(Y/2)THENR(Y+7,0)=40
  749. 7620 UB=0:NEXTY
  750. 7630 W=INT(RND(TI)*6)+1:V$=CHR$(W+48):IFOT=1ORP1=.42THEN470
  751. 7640 FORY=1TO6:R(Y,2)=0:WN=P(OT,Y,3):WL=P(OT,Y,2):IFWN>20THENTD=5:GOTO7760
  752. 7650 GOSUB3090
  753. 7660 TF(Y)=TD:MW=0:UB=0:IFTD=4THENR(Y,2)=0:QD=0:GOSUB7670
  754. 7665 GOTO7760
  755. 7670 IFEW>1THENR(EW+7,0)=95:MW=EW
  756. 7680 IFWW>1THENR(WW+7,0)=95:IFP(0,MW,0)=0ORP(0,WW,0)<P(0,MW,0)THENMW=WW
  757. 7690 IFNW>1THENR(NW+7,0)=95:IFP(0,MW,0)=0ORP(0,NW,0)<P(0,MW,0)THENMW=NW
  758. 7700 IFSW>1THENR(SW+7,0)=95:IFP(0,MW,0)=0ORP(0,SW,0)<P(0,MW,0)THENMW=SW
  759. 7710 DQ=0:R(MW+7,0)=110:GOSUB7720
  760. 7712 IFEW>1ANDP(0,EW,0)=P(0,MW,0)THENMW=EW:GOSUB7720
  761. 7714 IFWW>1ANDP(0,WW,0)=P(0,MW,0)THENMW=WW:GOSUB7720:
  762. 7716 IFSW>1ANDP(0,SW,0)=P(0,MW,0)THENMW=SW:GOSUB7720:
  763. 7718 RETURN
  764. 7720 IFP(0,MW,0)>10THENQD=0:RETURN
  765. 7721 UB=0:FORZ=1TOKK:IFOT=ZTHEN7738
  766. 7722 IFP(OT,MW,1)=0THENUB=2.5:GOTO7738
  767. 7724 IFP(OT,MW,1)<P(Z,MW,1)THENUB=UB+.9
  768. 7730 IFP(OT,MW,1)=P(Z,MW,1)THENUB=UB+.4
  769. 7734 IFP(Z,MW,1)>=1ANDLEFT$(P1$(Z),1)<>"[193]"THENUB=UB+.2
  770. 7735 IFP(Z,MW,1)>=P(OT,MW,1)ANDLEFT$(P1$(Z),1)<>"[193]"THENUB=UB+.6
  771. 7737 IFP(Z,MW,1)>=P(OT,MW,1)ANDLEFT$(P1$(Z),1)="[193]"THENUB=UB-BI
  772. 7738 NEXTZ
  773. 7739 QD=(2.5-UB)
  774. 7740 IFEW>1ANDP(OT,EW,1)>0THENQD=QD+.2
  775. 7741 IFWW>1ANDP(OT,WW,1)>0THENQD=QD+.2
  776. 7742 IFSW>1ANDP(OT,SW,1)>0THENQD=QD+.2
  777. 7743 IFNW>1ANDP(OT,NW,1)>0THENQD=QD+.2
  778. 7745 IFP(OT,1,1)<1200THENQD=QD+.5
  779. 7746 IFQD<0THENQD=0
  780. 7747 IFQD>R(Y,2)THENR(Y,2)=QD
  781. 7748 RETURN
  782. 7760 TF(Y)=TD:NEXTY:GOSUB8450
  783. 7770 GOSUB8230:FORPX=1TO6:R(PX,3)=100
  784. 7780 IFTF(PX)=2ANDMR=0THENR(PX,3)=0
  785. 7790 IFTF(PX)=3ANDP(OT,1,1)<1000THENR(PX,3)=101
  786. 7800 IFTF(PX)=3ANDP(OT,1,1)>2000THENR(PX,3)=99
  787. 7810 IFTF(PX)=2ANDMR=1THENR(PX,3)=LT(9)
  788. 7815 IFTF(PX)=5THENR(PX,3)=0
  789. 7820 IFTF(PX)=4THENR(PX,3)=20*R(PX,2)+68
  790. 7830 NEXTPX:GOSUB9500:M=0:W=1:FORZ=1TO6:IFR(Z,3)>MTHENM=R(Z,3):W=Z
  791. 7840 NEXTZ:V$=CHR$(W+48)
  792. 7845 IFM=0THEN7410
  793. 7850 RETURN
  794. 7860 GOSUB9800:D(OT)=D(OT)+TI-IT:IT=TI
  795. 7862 SA$="SIYLEH5KT YUXRX VEH5RIYYEH5SHUNZ.":SYS39424
  796. 7865 T=0:POKEBC,12:POKECB,G8:GOSUB11
  797. 7870 GETV$:M8=M8+1:IFV$="[133]"THENG8=1:GOTO7865
  798. 7871 IFM8>198THENPOKE53272,INT(RND(TI)*8)+14:M8=1:POKECB,15:GOSUB9300
  799. 7872 IFV$="[134]"THENG8=2:GOTO7865
  800. 7873 IFM8=99THENPOKECB,11:SYSC4,V3,L15,A6,D11,S0,R0
  801. 7874 IFV$="[135]"THENG8=3:GOTO7865
  802. 7876 IFV$="^"THENT=T+1:POKEBC,T+1:GOTO7870
  803. 7877 IFV$="U"THENVY=99:POKEBC,T+1:GOTO7870
  804. 7878 IFV$="L"THENVY=3:POKEBC,T+1:GOTO7870
  805. 7879 IFV$="+"THENLOAD"A12",8:RUN
  806. 7880 IFV$="[140]"THENPOKECB,12:POKE53272,19:POKE39438,76-(5*G8)
  807. 7885 IFV$="[140]"THEND(5)=D(5)+TI-IT:IT=TI:RETURN
  808. 7887 SA$="PREHS DHAH-EH5F-EY5T-KIY TUX RIYTERN TUX DHAH GEYM.":SYS39424
  809. 7890 GOTO7870
  810. 7900 FORZ8=1TO6:X8=P(OT,Z8,2):Y8=P(OT,Z8,3)
  811. 7940 POKE1065+X8*40+Y8,126:POKE55337+X8*40+Y8,15:NEXTZ8:RETURN
  812. 7970 SP=INT(RND(TI)*7)+1:VB=0:FORX=2TO8:IFP(OT,X,1)>0THENVB=VB+1
  813. 7971 IFP(0,X,0)>1ANDSP<XTHENSP=X:IFOT=1ORP1=.42THEN470
  814. 7972 R(X+100,0)=500:NEXTX
  815. 7980 SP=INT(RND(TI)*7)+1:RETURN
  816. 7982 IFDNTHENGOSUB5170:PRINT:PRINT
  817. 7984 SP=9
  818. 7986 IFOT=1ORP1=.42THEN7970
  819. 8230 FORZ=2TO8:LT(Z)=115
  820. 8231 IFP(0,Z,0)>0THENLT(Z)=0
  821. 8232 IFZ/2<>INT(Z/2)ANDOT=4THENLT(Z)=LT(Z)+1
  822. 8233 IFZ/2=INT(Z/2)ANDOT=3THENLT(Z)=LT(Z)+1
  823. 8236 FORY=1TOKK:IFP(Y,Z,1)>0ANDY=OTTHENLT(Z)=LT(Z)+28
  824. 8237 IFP(Y,Z,1)>0ANDY<>OTTHENLT(Z)=LT(Z)-13
  825. 8240 NEXTY:NEXTZ
  826. 8242 TH=7:LT(9)=0:FORZ=8TO2STEP-1
  827. 8244 IFLT(Z)>LT(9)THENTH=Z-1:LT(9)=LT(Z)
  828. 8246 NEXTZ:Y=INT(RND(TI)*10)+2:IFY>8THEN470
  829. 8247 FORZ=2TOY
  830. 8248 IFLT(Z)=LT(9)THENTH=Z-1
  831. 8250 NEXTZ:RETURN
  832. 8260 V=INT(RND(TI)*2)+1:IFOT=1ORP1=.8THEN470
  833. 8280 R(1,1)=0:R(1,2)=0:FORY=1TO2:FORX=1TOKK
  834. 8290 IFOT<>XANDP(X,AG(Y),1)>P(OT,AG(Y),1)THENR(1,Y)=R(1,Y)+1
  835. 8300 IFOT<>XANDP(X,AG(Y),1)=P(OT,AG(Y),1)THENR(1,Y)=R(1,Y)+.5
  836. 8310 NEXTX:NEXTY
  837. 8320 V=1:IFR(1,1)<R(1,2)THENV=2
  838. 8330 RETURN
  839. 8340 VS=53248
  840. 8360 POKE2040,15:POKE2041,14:POKE2042,13
  841. 8370 POKEVS+39,8:POKEVS+40,9:POKEVS+41,0
  842. 8380 POKEVS+29,3:POKEVS+23,3:RETURN
  843. 8390 V=P(MT,AG(ZL),1):XV=INT(V/2):IFP(5,AG(1),1)<XVTHENXV=P(5,AG(1),1)
  844. 8391 IFXV+P(MT,AG(1),1)>13THENXV=13-P(MT,AG(1),1)
  845. 8392 IFV=0THEN5900
  846. 8393 IFO1=2THEN5630
  847. 8395 IFVA(AG(ZL))*3<VA(AG(1))THEN8410
  848. 8400 IFVA(AG(ZL))*1.9>VA(AG(1))ANDP(MT,AG(1),1)=0THEN8425
  849. 8405 IFP(MT,1,1)<2500THEN8425
  850. 8410 IFHM=1THEN5830
  851. 8425 IFO1<>0ORCO>85-3*MTTHEN5630
  852. 8430 IF(3+AG(ZL))*44>VA(AG(ZL))THENV=0:HM=4:GOTO5900
  853. 8432 IF(3+AG(ZL))*66>VA(AG(ZL))ANDP(MT,1,1)>1000THENV=V-1:HM=4:IFV>2THENV=V-3
  854. 8445 GOTO5630
  855. 8450 MR=0:FORY=2TO8
  856. 8470 IFP(0,Y,0)=0THENMR=1
  857. 8480 NEXTY:RETURN
  858. 9000 POKE55848+OT*8,OT-1
  859. 9001 GETV$:IFV$<>""THEN9010
  860. 9002 C=C+1:O7=O7+1:IFC>9THENC=0:SYSC4,V3,L2,F600,WN,D7
  861. 9003 POKEOT*8+1576,C+200:IFO7=350THENO7=0
  862. 9004 IFO7=200THEN:SA$="PREHS AX KIY.":SYS39424
  863. 9005 GOTO9001
  864. 9010 SYSC4,V1,L15,F5163,WN,A0,D9,S0,R0
  865. 9020 SYSC4,V2,F183,WS,A0,D11,S0,R0
  866. 9023 POKEOT*8+1576,32
  867. 9030 IFV$="[140]"ANDB7<>5THENGOSUB7860
  868. 9100 RETURN
  869. 9300 IFCO<=KK*7THENTI$="000000":PRINT"";:RETURN
  870. 9350 PRINT"    ";MID$(TI$,2,1);"[151]:";MID$(TI$,3,2);"[151] [173][174] [149]";
  871. 9400 PRINTSPC(18)CO-7*KK;"[151] [197][196][146][155]";:RETURN
  872. 9500 FORQ=1TO6:FORM=1TO6
  873. 9508 IFQ=MTHEN9560
  874. 9510 IFP(OT,Q,2)<>P(OT,M,2)THEN9530
  875. 9520 IFP(OT,Q,3)=P(OT,M,3)+1THENR(Q,3)=R(Q,3)+2:R(M,3)=R(M,3)+2
  876. 9530 IFP(OT,Q,3)<>P(OT,M,3)THEN9560
  877. 9532 IFP(OT,Q,2)=P(OT,M,2)+1THENR(Q,3)=R(Q,3)+2:R(M,3)=R(M,3)+2
  878. 9560 NEXTM:NEXTQ:RETURN
  879. 9800 SA$="DHIHS MEHNYUX IHZ /HAARD TUX YUXZ.":SYS39424
  880. 9810 SA$="PREHS DHAH PLAH5S KIY TUX RIYSTAART DHAH GEYM.":SYS39424
  881. 9811 SA$="PREHS DHAH- YUX5-KIY FOHER AXNLIHMIHTEHD STAAK BAYZ.":SYS39424
  882. 9812 SA$="PREHS DHAH, EH5L KIY FOHER THRIY STAAK BAYZ.":SYS39424
  883. 9820 SA$="PREHS DHAH, AH5P AE5ROH KIY FOHER VEHERIYEYSHAHNZ.":SYS39424
  884. 9822 SA$="DHAH, AH5P AE5ROH KIY WIHLX CHEYNJ BOHRDER  KAHLERZ.":SYS39424
  885. 9830 SA$="IHF BOHRDER KAHLER IHZ OHRAENJ NOH STAAKS WIHLX SHOH.":SYS39424
  886. 9832 SA$="IHF BOHRDER KAHLER IHZ PERPAXLX NOH CHEYNZ WIHLX SHOH5.":SYS39424
  887. 9836 SA$="IHF BOHRDER KAHLER IHZ GREY NOH MAHNIY WIHLX SHOH5.":SYS39424
  888. 9900 RETURN
  889. 9999 OPEN15,8,15,"S0:BAQUE":CLOSE15:SAVE"BAQUE",8
  890.